home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 200 / 200.d81 / b.rick's pinball (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  46 lines
  1. 5 poke53281,0:poke53280,0: print"[147]"
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 gosub41000
  4. 30 q$=chr$(34):print"[144]load"q$"rick's pinball"q$","dv
  5. 35 print"run":print"[154]     [196]oes [206][207][212] [210]eturn to [204][207][193][196][211][212][193][210]"
  6. 40 print"        [208]ress <[209]> to [209]uit now[158]"
  7. 41 forx=0to5:reada$:printtab(19-len(a$)/2)a$:next
  8. 44 getz$:ifz$<>""then49
  9. 45 q=q+1:ifq<30then44
  10. 46 q=0:poke646,(peek(646)+8)and15:printtab(19-len(a$)/2)a$:goto44
  11. 49 print"[144]":ifz$="q"then40000
  12. 50 poke631,13:poke632,13:poke198,2:end
  13. 9999 end
  14. 10000 d=peek(186):n$="0:b.rick's pinball":open15,d,15,"s"+n$:close15:saven$,d:end
  15. 40000 poke53280,0:poke53281,0:poke53265,27:dv=peek(186):q$=chr$(34):print"[147][144]";
  16. 40010 a$="hello connect":r$=chr$(13)+"r[213]"+chr$(13):q$=chr$(34)
  17. 40020 close2:open2,dv,2,a$:get#2,b$:close2:ifst=0then40050
  18. 40030 open15,dv,15,"i0":input#15,en:close15
  19. 40035 poke53280,14:poke53281,6:print"[147][154]"
  20. 40040 poke44,8:poke8*256,0:poke55,0:poke56,160:clr:new
  21. 40050 print"load"q$a$q$","dv""
  22. 40055 forx=1to4:poke630+x,asc(mid$(r$,x)):next:poke198,4:goto40040
  23. 41000 poke53280,0:poke53281,0:poke53272,22:print"[147]"
  24. 41002 poke214,14:print
  25. 41004 printtab(1)"[155]                                     "
  26. 41005 forx=1to6
  27. 41006 printtab(1)"[152]                                     "
  28. 41007 next
  29. 41013 printtab(1)"[151]                                     "
  30. 41020 forx=1to4:reada$:poke214,15+x:print
  31. 41022 printtab(19-len(a$)/2)"[152]"a$
  32. 41024 next
  33. 41030 t=ti+60
  34. 41031 ift>tithen41031
  35. 41032 print"":return
  36. 41050 data"[210] [201] [195] [203] ' [211]   [208] [201][160][206] [194] [193] [204] [204]
  37. 41051 [131]"by (NULL)ichard str$erocher
  38. 41052 data"(c) 2000 by [202] & [198] [208]ublishing, [201]nc.
  39. 41053 [131]"www.loadstar.com
  40. 50000 data""
  41. 50001 data""
  42. 50002 data""
  43. 50003 data""
  44. 50004 data""
  45. 50005 data"[208]ress a [203]ey to [195]ontinue[145]"
  46.